import Tablero

--Ejercicio 2:
--Debe devolver negro para pos = (d,4) o  (e,5), blanco para (e,4) o (d,5) y nothing para el resto de las posiciones por la disposición del tablero segun el enunciado
ejContenidoTableroInicial :: Posicion -> Maybe Color
ejContenidoTableroInicial pos = contenido pos tableroInicial

ejPonerTableroInicialAgregar = poner ('a',1) Blanco tableroInicial
ejPonerTableroInicialReempMismoColor = poner ('e',4) Blanco tableroInicial
ejPonerTableroInicialReempOtroColor = poner ('e',4) Negro tableroInicial

--Ejercicio 3:
ejDesplazarColumnaDer = desplazarColumna 1 ('b',2)
ejDesplazarColumnaIzq = desplazarColumna (-1) ('b',2)
ejDesplazarFilaAbajo = desplazarFila 1 ('b',2)
ejDesplazarFilaArriba = desplazarFila (-1) ('b',2)

--Ejercicio 4:
ejGenerarDesplazandoFila = generar ('a',1) (desplazarFila 1)
ejGenerarDesplazandoCol = generar ('a',1) (desplazarColumna 1)

--Ejercicio 5:
tableroConBlancoD3 = poner ('d',3) Blanco tableroInicial
ejPosicionesAInvertir = posicionesAInvertir ('d',3) tableroConBlancoD3

--Ejercicio 6:
ejInvertirTodas = invertirTodas ejPosicionesAInvertir tableroConBlancoD3

--Extra (tableros a partir del inicial)
tableroConBlancoD3NegroC3 = poner ('c',3) Negro ejInvertirTodas
tableroConBlancoD3NegroC5 = poner ('c',5) Negro ejInvertirTodas

ejPosicionesAInvertir1 = posicionesAInvertir ('c',3) tableroConBlancoD3NegroC3
ejPosicionesAInvertir2 = posicionesAInvertir ('c',5) tableroConBlancoD3NegroC5

ejInvertirTodas1 = invertirTodas ejPosicionesAInvertir1 tableroConBlancoD3NegroC3
ejInvertirTodas2 = invertirTodas ejPosicionesAInvertir2 tableroConBlancoD3NegroC5

